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5tQ m^2 



U0 ABSTRACT 



THIS i^OnnLE IS DESlGf^ED TO FXEPCTSP THE DRUL (TWO wORP IWPUI 
I'^^TFFFACE TO THE Pnp«il 1J^'IBUS) AWD/OP THF OHllN ( l>«iO OUTPUT 
INTERFACE TO THE PDP-11 UMHUS)* IT FXERCI5ES THE DRUL ALONE BY 
HAVI^JG THE PRlll' I^MTEHRUPT THE CPU, IT EXERCISES THE DRU"^ ALONE 
BY HAVING THE DRll^^ INTEPHUPT THE CPU AND BY .^RITE/READING THE 
DRUN'^S DBR, IF THE DFllL AMD DRUH OPTIONS APE CABLED TOGETHER 
FOR TESTi IT EXEPCISFS THE^^ BOTH ^^Y HAVING THF DRllH XNIERRUPT 
FOR DATA« THE OpxiH TRAfasFEPS DATA TO THE DRUL AMD THE DRUL 
INTERRUPTS THE CPU WITH THE DAIA, 

ALL DEVICE ADDRESSES Ai^m VECTORS ^'UST BE CONSECUTIVE 
i^ITHIK: THF DRUM OR DRUL GROUP, 

DEFIKITIO^IS 

MODULES A MODULE IS A SUB-PROGRAM DESIGNED TO BE CONFIGURED 
WITH THE OFC/XU MONITOR JN ORDER TO TEST A PARTICULAR 
DEVICE, 

^"ORDS A WORD IS A SUB-SECTIOK' OF LOGIC OF EITHER THE DRUL OH 

rRUf'*, EACH WORD COULD BE CONSIDERED A SEPARATE DEVICE 
SI/iCE IT HAS ITS O^^N CSR k^]) DRR« 



2,0 rewuirf:.me.nts 



HA'^D/. ApEs 

U DRUL OR LRU'*" Afv H8913 f KA I NTE*^' AfviCF LO<"jPt^ACK COfVlvECTOR) IS 
FEuUlRFD Uv EACH i^;OHD OF THfc DEVICE TO BE TESTED. 

2, DRUL AND DRU^^«A BC08 CABLF (OR EC^UIVALENT) IS REQUIRED FOR 
FACH KORD of the devices TO PE TESTED, 

STORAGES S npF REQUIPEv*?! 

1 « DECI^'AI i^UFLS? 932 
2, OCTAL WORDSl 1b44 
3« OCTAL h\ltb% 3!5U 
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5EU iiJk^^i 



3,0 PASS UEFINTTIO^J 



ONE pass OF THIS N^ODUIE fO^lSlSTS OF 65^536 IMERPUPTS ¥i<Q'A EACH 
WOPD UMDEP TESIt 



4«0 '-IXECUriO^ iim 

ONE PASS RUNt-IT^G ALOME OiJ A PDP-U/i'^5 TAKfe.6 APPROXIf^ATFLY Of^^E 



5«0 COf^FIGnR&TXOti REOU IFEJ^E^JTS 



DEFAULT PARAf'^ETERSl 



DFVCNTsl (^a1^^R£R OF wlOPDS TO 6^ EXERCISED) 

PEVADP20 (ADDRESS OF THE IST CS^ OF THE 1ST DRIIL) 

ADDRasl (ADDRESS OF THF 1ST CSR OF THE 1ST DRUM) 

SBily^ CHOW DEVICES AHE SETUP TO tsV. TESTED) 

VFCTORsl (VECTOR AOrp, OF 1ST I'^OPD OF 1ST DRUL) 

VFCT2I1 (VECTOR ADDP« OF 1ST wORD OF 1ST ORU.^J 



REQUlKFn PARAMFTERSS 



TO priKi THIS MODULE, YOU ^-^USTf 



U IF ^OU ARE TESTING DRllL'S* YOU f/UST SUPPLY IHE ^^ODULE With 
THE FIRST ADDRESS OF THE FIRST DPllL WORD TO &E TESTED, 10 
DO THIS AT CONFIGURATION- TI"F, YOU i^OULD ENTE^* THAT ADDRESS 
Ik "DE^fADR''^ AT PUi^^ TI^.E YOU WOULD HQPIFY LOCATIUiM "ADUF" (ARC 6)« 

2, U YOU ARE TESTlf^G DRllL*S# YOU ^'UST AL5O SUPPLY T^E VECTOR 
ADDRESS OF THF FIRST DRUL kOPD, THIS •'^AY BF DONE AT 
CO^•FIG^IRAT-TON TINH OR RU^i Tim BY SUPPLYING T^E VECTOR 
ADDRESS TO '•VECTOR" CAPC 1^0. 

3, AT COtvFinuPATlOf TIME YOU ^HIST SUPPLY "DEVC^^T" **1TH THE TOTAL 
fUU'BER OF WORDS, DRUL OR DRJIM, YOU inSH TO EXERCISE, THIS 

BF DOi^E AT puh TIME BY HODIF^il^G LOCATIO^i "DVlDl" (APC 14). 

4, TF YOU APE FXEPCISU^G DRUM'S, AT RUU TI^^E YOU MUST NOdIFY 
LOCATION •'ADDR2" (APC 164) WITH INF FIRST ADDRESS OE THE FIRST DRllH 
TO BE TESTED^ 

IF YOU APE EXEPCISIWG DRUr-^'S, AT PU^J TI^^F )LOV HUST ^10DIFY 

L0CATI0^i "VECTS" (APC 166) icaTH THE VECTOR ADDR^ OF THE FIRST DRUM WORD, 
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6, '^'OW THF LA5T TriI«^'G yOTi MIigT KODIFY Al RUM TIME, IS SPl (APC 16) « THt 
DEVICE V^tF'RFSFKTZiTIOM SRI Slf^ILAK TO DViDl. E.ACH BIT 

1^" SPl FpOM pTTP TO Bni5# PEPRESEr^T THE FIRST DFVICE wQPD 
TriPOUGH THE LASl FE^^ICF ^CRD« SRi TELt^S THE PROGRAM WHETHER 
TKF; DEVlCrS SFT FCF TEST APE CABLED TO EACH OTHER? UR HAVE 
IN THEM. 



t« 4 DPllfS, THE FtPST HAS ADDRESS 1760^0, VECTOR 3i^0| 'VO 
DRlU**St 

DEVAPP CAODP) s l7bt-^^0 
VECTOR = 

DEVC^'T = (2 W'^PDS PEP DEVICE TI^-FS 4 DEVICFS) 
DVTDl = 0(?*O377 
ADnp2 s; 
VECT2 = 
SRI s 

EACH rjRllL KOpn (Jl, J2) would have an H8913 INSTALLED, 
TF YOU HAD LEtSS THAW B HB'43i3S^ YOU KOMLD INSTALL ALL THE 
H8913# AND SPECIF'i WHICH WOPPS HAD H8913 £Y J^OyiFYIi'^G 
LOCAT^O^l "DvIDl" TO INDICATE l^HICH DHUL WORns vvERE TO BE 
TE3TED« 

2. 4 DRU^'Sff THE FIRST ADDRESS 1770k^;0, VECTOR 
DPI IL'S. 



VECTOR s 
DEVC^T = 8 
nVTDl s P00377 
ADDR2 = U^tHli-^ 
VECT2 s U^t^> 
SRI = ^ 



3, 4 DRllfSi THE FIRST ADDRESS n60(Hi, VECTOR 30i^ 
I DRllM'Sf THE FIRST AnDRESS 17700<^, VECTOR 40k7 
t BCt^8 CABLES? 4 H69I3S* 



DEVADR (ADDP) = 1 7fc^'<^0 

VECTOR = 30k^' 

LEVCWT - 8 

nviDl = ^'0^5377 

ADDP2 s 177^00 

VECT2 s 40(^ 

SRI = t-00i?77 



SRI r,ITS 0^?«.05 TO INDICATE TO THE FipST b i'^ORDS OF THE 
DP11L*S A^^D DP11M*S ARE CAPLItD TO EACH OTHtR EO^ TEST. SRI 
BITS AivD 07 = TO TfiDItATE THAI IrtE LAST 2 ^URDS 
(DRIlL a'!D DRtl^) HAVE HR913 INSTALLED 



6«0 DEVIfF/OPlTOii SETUP 
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A) MA?^F CERTAIW THAT EACH IvORD C&ELrCTfc.D BY DVIDI THAT HAS A 
COHRESPONDIMG PIT IN 5P1 CLEAP^^D) MAS AN If'iSTAtLED IN 
IT. 

OP 

B) .'-AKP: CEPTAIW THAT EACH y^iOPD (StLLCTED &Y nVlDl THAT HAS A 
COPRP:SPOHDING BIT I^^ 5Pt SET) HAS A CABLE BETWEEN THE DkXih 
TlvPUT WOPD km THE DRUf^ OUTPUT wOPD« 



7«(?s MODULE OPEPATTOr: 



A, J^rrpESS RACH DRllL AMD DPllM ADDPES.S SFLECTED FOR TEST, AT 
THIS IF THE OPTIONS DON*! r<ETUR^' SLAVE^SYNC TO THE CPU^ 
ft ''DEC/Xli SYS ERROP" ^Ibh OCCPR. 

B, THE VECTOR ADDRESS E^-TERED PY THE OPERATOR FOR EACH DEVICE 
^•'Ihl BE CHECKED, IF THE VECTOR ADDRESS I5 iuESS THAN 100^ An 
ERROR ^'ESSAGF wILL BE TYPED (SEE '^ON-ST ABOARD PRlhiTOUTS) AN'O 
THE 4/^ORD PAIR vatL BE DESELEfTfeD FOR THE REMAI'^^UER OF THE 

f- ODULE RUN 8 IF THE VECTOR AODPESS ENTERED bY THE OPERATOR 
DOES^«'T AGREE WITH THE VECTOR ADDRESS REAP Ih THE DEv'ICES' 
CSPr AN ERROP WILL BE TIPPED, 

C, IE THE INTERRUPT PRIORITY OF THE WORD IS 6 OR 7 A AAPNIivG 
.'■^FSSAGF WILL BE TYPFD (5FE 9 NOK «STA!.DAPL PRINTOUTS). 

EACH WORD OF EACH DEVICE '^ail BE TESTED TO SEE IE IT i^aLL 
T^/TEHRUPT, IF A wORD FAILS TO INTERRUPT^ AN ERROR mEs£,agk 
WILL PE TYPED AN'O THAI v»/Opp (PAlP) WILL RE DESELECTED FOR THE 
RE^'AINPER OF THE ^lODULE Rllf^ 

F. , (PEST'RT) IF ALL WORD (PAIRS) HAVE BEEN DESELECTED FPO'^l TEST 

DUE TO ERRORS, THE DEC/Xll ^'ODULE >^1LL DROPPED, 

POINT TO FIRST PATTERN^ 

G. POIWT TO FIRST i^'ORD PAiR, 

H, IF KO DPU?^ OR LRllL TO R.£ TESTED, THEN STEP ^« IF IMO DHUH 

TO BE TESTED^ THE^ STHp IE SRlsO THEN SET RIT 6 1?^ CSP TO CAUSE 

I^ITFRRUPT, OTHEF'^^ISE REAL DRilLS' DBR « THIS '^'ILL CAUSE DRll'^ 
JO INTERRUPT i^HEN ITS INTR. FNAILE IS SET* 

I, SET rpiH^'S ^/ECTOR AND STATUS ADnp^ESSES, 
J, SET DRII^^'S luTP, ENARLE, 

DEC/Xn EXIT, DRtlM i^lLI XNTR« TO L« 
L, CLEAR DRir^'S INTR. ENABLE, 



# # 



, - ' 
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DEC/Xil PTRQ, WILL PETUPN TO I'- 

LOAD CUPF:ENT PATTEPr^ INTO DPU^^'fe DBP. Il*" SRlsl, THIS l^^ILU 
CAuSF DRUL TO INTERRUPT U/H^:N ITS I^iTR, ENABLE 6ET* 
OTHFRi^aSE IF SP1=0 SET DRJlL'5 CSR BIT 8=i0« 

0, IF HOT TESTIMG A DPllL* GOTO STEP T, 

P, SET" DPlltJ^s INTP, ENABLE, 

DEC/Xn EXIT, nPUL WILL TNTR, TO P. 



R. CLEAR DRIIL'5 IMP, ENABLE. 

nECXIl PIRQ, The PROGPA^^ WILL PEIUPW TO T, 

T, IF TESTED A viQRO i^AlR, READ DPilL'S DBR^ OTHERWISE IF TEST^f^iG 
A LOfs'E DPllM, REAC DRUM'S DBP, 

f\ COMPARE ror^TENTS TU THAT OF DATA SENT TO DRUM, IF liQ ERROR 
STEP W, 

V, DEC/Xil DATERR, 

POIfvT TO NEXT ■<^ORD PAlE TO BE TESTED IF fvO t^ORE iA.ORD PAIHS 
ThE^ step X r^THf Ri^ISE STEP H, 

X, UPDATE PATTERN PO INTER IF NOT HOI E ALL PATTERNS lEE^i GO TO 
STEP G, 

Y. IE NOT DO^JF ENOUGH ITERATION'S GO TO STEP ELSE DEC/Xll END 
PAS, 
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FACltll 30A( 1052) 27™mah*'79 v^9|00 PAGE P 



R«'4 OPERATION OPTJOWS 



r^EVAHRs THE ADHREgS OF THF CSR OF THE FIRST if ORD OF IHE DHllL 
tJNDFP TF5T, U mjn^^JJ^^Q MULIIPLE DRUL'S, THEIR 

ADDRESSES ^UBl BE CONSeCUTlVE« IF NO DRUL'S ARE TO BE 
TESTED^ THIS lOCATXON HU5T BE ZEROED, 
NOTES SEE 5,0 COf^FIGUPAlIO'^ REQ^JIREMENTS . 

DEVAnas THE ADDRESS OF T^E CSR OF THE FIRST WORD OF THt FlPST 
DRUM UNDER TEST, IF RnfihlFG MULTIRLE DRUM'S THEIR 
ADDRESSES mST BE CO^SFCDTI VE e IF NO DRUM'S ARE TO BE 
TESTED, THIS LOCAIIOM MUSI BE EEFOED« 



NOIEi SEE SECTION b«0 CONFIGUPAI lOW REQU IPEMENTS » 



DEVC^'Ts CONFIGURATION TJME^ YCU SUPPLY THIS LOCATXOM wITH 

THF NUN'BER OF ^aIOrDS (Mi^x=J^f T^^^O wORDS PER DEVICE) THAI 
YOU WISH TO EXERCISE. TPlS COJJNT IM OCTAL PEPPESEfviTS 
POTH DRUL*5 A^ID DRUF^'S. IMPORTANTl IF YOU ARE 
EXERCISING BOTR pRUfS A^^iD DRUM'S^ YOU MUST PREPARE 
HH EQUAL Mif'BER FOR TES'^'. JF YOU CAiMf.'OT MEET THIS 
REQUIREf^ENT, YOU MAY CO^JFI^iURE THIS MODULE FOR THE 
PE^^At^^I^G UUEQUAL i^UMHERe FOR EXAHPLEj IF YOU HAD 2 
DPUL'S AND 3 npu*'''S, YOU WQULD CONFIGURE Of^E ^^ODULE 
TO EXERCISE 2 DRUi'*'S AND 2 DRUL'S, kW A SECOMD .MODULE 
TO EXERCISE ONE DRU^^ 

THE CONFIGUPATOR i^ILL TAKE THE NUmhER YOU SUPPLIED AND 
FILL 1^1 A LOCATIOrJ l^'jTHiN THE MODULE CALLED "OVIH'% 
EACH BIT OF THE t.OPD DVIDI (FROM 8lT0«^ TO BITl^j) 
HErpESEN'T A i^OPD TO t^V TESTED (FpOM -^lORD 1 OF 1ST 
TEVICE TO 1 OF 2 OF THE NTH (1 TO «) DEVICE), TO 
DELETE ALY CP (BOTii DRUL AND DRU*^^) FROfvi TEST* ZERO 
THE CORHF.SPOrrfDIML FIT IM DVIDI « 



SRI I SPl IS USED BY THE iMUDMLE TO DETER^U^E i^'HETHER YOU ARE 

TESTING THE DEVICES ALONF (USI^G A=^I hy9l35 OR aHET^ER 
YOU HAVE THF'^ CA&LED, EAC»' BIT OF SPl (FROH BIT00 TO 
FIT15) REPRESENT A I'^ORD TO BE TESTED tEPO?^ k^ORD 1 OF 
FIRST DEVICE (PAIR) TO WORD 1 OR 2 OF THE K'TH ( 1 10 8) 
DEVICE (FAIR))« 

IF A^l SRI BIT (|iITr*0 TO 6IT15) IS ZERO, AND THE 
COFPESPONC ir?G HIT JH DVTOl XS SET, THE PPOGRAH wILL 
A5SU^^F YOU s^-lSH TO EXEPCISE THE CORRESPONDING j^^ORD OF 
THF OkUL M'C/Oh DRUM wTTh A^^ Ha913 INSTALLED, 



A J SRI BIT TO UlTlS) IS SET ( = 1) kho THE 

CORRESPONDING BIT 1^^ DVIDI IS SET# THE PROGRAM ^ILL 
ASPUf'^E lOb ^ISH TO EXERCISE THE CORRESPONDING »wOhDS OF 
THE ORUL AND DPllH TOGETHER # AS THEY ARE CABLED, 
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'^^.'J HOfJ-STAKDAPD PPIN'TOUTS 



A, ^^OST PRifJTOUTS HAVE THE STANDAPI; FORMATS DESCRIBED IN THE 
DEC/Xll DOCUMENT, 

IF A VECTOR ^DOpEfSS IS LES6 THA^? l«0, THE f^ODULE WILL NOT 
?:XEPCISE THE MODULE, IT yvILL DROP THE 0PTI0M5 i^ORD FROW TEST 
A'^'D TYPE THIS MESSAGEl 

TrttfL OR ri) AODP? XXXXXX VECTOR ADDRESS LESS TRA^" 100 
RESET VECTOR SWITCHES ON DRll CL OR M)," 

C, IE THE PRIORITY OF A DPII (L OR WORD IS EIIHEP 6 OR 7 A 
vvARMNG MESSAGE WILL BE TYPED s 

"DRH ih OR H) PRIORITY OE 6 OP 7 ^AY INTERFERE ^ITR ERROR 
FREE EXECUTION OF OTHER HOLULES«" 

IF A WORf: OR WORD PAIR (DRllL AHD/OR DRUW) IS DROPPED FROM 
TESTS 

"FPFOPING DPI I (I. OR DROPPED FROM TEST'»« 

E, IF ALL ^OPDS HAVE BEEf^ DPUPPED FR0f4 TEST? THE FOLLOWING 
MESSAGE vaLL BE TYPED I 

"DREA? MO MORE v:0R05 TO EXERCISE "« 

FOT.T.O-A BY A OFC/XU "END" fOR DROPPED) K'ESSaGE^ 
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.TITLE 
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0«t0000* 


051 104 


041505 


040 HODNAHI 


.ASCII 


/DPEC / 


1 MODULE 


NAME, 


384 


000005 ' 


000 




XFLAGi 


.BYTE 


OPEN 






jUSLD TO KEEP TRACK OF i^BUFF USAGE 


385 


000006* 


000«01 




ADDRI 


J +0 




llST 


DEVICE ADDP, 


386 


00001 0* 


000&01 




VECTOHl 


U0 








list DEVICE VECTOR, 


387 


000012* 


20<^ 




BRl 1 


.BYTE 


PRTY4+0 






JIST PR LEVEL. 


see 


0*3 '"ei 3' 


200 




BR2I 


.BYTE 


PRTY4+0 






»2ND BH LEVEL, 


389 


0fe)001 4* 


000001 




nviDJ 1 


♦ I 








IDEVICE INDICATOR I, 


390 


<500016* 


000000 




SRI 1 


OPEN 








jSwITCH REGISTER 1 


391 


000020* 


000000 




SR2I 


OPEN 








JS^MlTCH REGISTER 2 


392 


000022* 


000000 




SR3I 


OPEN 








fSWITCH REGISTER 3 


393 
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000000 




SR4I 


OPEN 








? SWITCH REGISTER 4 


394 
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000026' 


140000 




STATi 


140000 








ISTATUS WORD, 


396 


000030' 


000274* 




INJTI 


STAPT 








» NODULE STAPT ADDR. 


397 


000032' 


000224* 




SPOINTI 


MODSP 








IMOUULE STACK POINTER, 


398 


000034' 


000000 




PABCNTI 











IPASS COUNTER, 


399 


000036* 


00006; 




ICONTi 











}» OF ITERATIONS PER PASSj:0 


400 


000040* 


000000 




ICOUNTI 











ILOC TO COUNT ITERATIONS 


401 


000042' 


000000 




SOFCNTi 











JIOC TO SAVE TOTAL SOFT ERRORS 


402 


000044' 


(;i00000 




HRPCNTI 











tLOC TO SAVE TOTAL HARD ERRORS 


403 


000046' 


000000 




SOFPASI 











jLOC TO SAVE SOFT ERRORS PER PASS 


404 


000050' 


000000 




HRDPASI 











;LOC TO SAVE HARD ERRORS PER PASS 


405 
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000000 




SYSCNTI 











|« OF SYS ERRORS ACCUMULATED 


4(^6 


000054' 


000000 




PANNUMI 











fHOLDS RANOOH « WHEN RAND MACRO IS CALLED 


407 
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IRESERVED FOP MONITOR USE 
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000000 




pesii 











IRESEPVED FOR MONITOR USE 
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000000 




PE52I 











jRESERVED FOR MONITOR USE 


410 


00^062' 


000000 




SVi<0| 


OPEN 








>LOC TO SAVE R0, 


4U 


000064* 


000000 




SVRll 


OPEN 








;rOC TO SAVE Rl, 


412 


000066' 


000000 




5VP2I 


OPEN 








ILOC TO SAVE R2, 


413 


000070' 


000000 




SVP3I 


OPEN 








jLOC TO SAVE P3. 


414 


000072' 


000000 




SVP4I 


OPEN 








ILOC TO SAVE R4, 


41S 


000074' 


000000 




SVP5I 


OPEN 








iLOC TO SAVE R5, 


416 


000076' 


000000 




SVR6I 


OPEN 








ILOC TO SAVE R6, 


417 
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000000 




CSRAi 


OPEN 








lADDR 0*^ CURRENT CSR, 


418 


000102' 






SBAORi 










lADHR OF GOOD DATA, OR 


419 


000102' 


000000 




ACSRI 


OPEN 








ICONTENTS OF CSR. 


420 


000104* 






WA5ADRI 










lADDR OF BAD DATA, OR 


421 


000104* 


000000 




ASTATi 


OPEN 








ISTATUS PEG CONTENTS, 


422 


000106* 






EPRTYPI 










ITYPE OF ERROR 


423 


000106* 


0^0000 




ASBl 


OPEN 








{EXPECTED DATA, 


424 


0001 10* 






AMASS 


OPEN 








FACTUAL DATA, 


425 


000112* 


002044' 




PSTRTi 


RESTRT 








IRESTAPT ADDRESS AFTER E.MD OF PASS 


426 


000114* 


000000 






OPEN 








IWORDS TO MEMORY PER ITERATION 
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000000 




WDFRl 


OPEN 








IWOPDS FROfi MEMOPY PER ITERATION 


428 


000120* 


000000 




liJTPI 


OPEN 








|# Ul- INTERRUPTS PER ITERATION 


429 


000122* 


000072 




IDNUMi 


72 








iMODULE IDENTIFICATION NUMBER=72 
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,REPT 


SPSIE 






IMODULE STACK STARTS HERE, 
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431 
432 
433 
434 
435 
436 



.NLI5T 
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,ENPP 

MODSP I 
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0000W0 


450 


000242' 


000000 


451 


000244' 


000000 


452 


060246' 


000000 


453 


PI00250' 


000000 


454 


0P0252' 


000000 


455 


«0W254' 


00000<^ 


456 


000256' 


000000 


457 


000260* 


000000 


456 


000262' 


000000 


459 


000264' 


140700 


460 






461 






462 






463 


000266* 


000000 


464 






465 


000270' 


000000 


466 


000272* 


000000 


467 






468 






469 






470 






471 






472 






473 






474 






475 


00^274' 


016701 


476 


000300' 


006201 


477 


000302* 


101402 


47B 


000304' 


001413 


479 


000306* 


000774 


480 


000310* 


062767 


481 


000316* 


062767 


48? 


K00324* 


062767 


463 


000332' 


000762 


484 


000334* 


005767 


485 


000340* 


10040?> 


486 






487 


000342* 


005767 


488 


000346* 


100402 


489 






490 


000350* 


000167 


491 






492 


000334' 





AODR?! 



lUSEH REQUIPED INFOpMATION 



177514 



000003 
00000 3 

000003 



177602 
177570 
177564 



jUSEh Ef^TERFU ADDRESS OF 1ST CSH OF FIRST ^QUO 
}0F FIRST DPilK. (IF ANY) ENTERED FOR TEST, 
jUSER ENTERED VECTOR ADDRESS OF FIRST ivORD OF 
JFIRST DRUM CIF kfifj ENTERED FOR TEST, 



{MODULE REQUIRED REGISIERS • SET UF BY THIS MODULE. 



HRLADPI 

DRLORPJ 

DRMADRl 

DRMDBRJ 

DVIPLf 

DVIOMI 

SRLl 

SRMI 

SRBl 

DRVCTl 

VCTCALl 

PRIORI 

POINTi 

ITCJTI 

ITSETl 



OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEH 
OPEN 
OPEN 
OPEN 
OPEN 
140700 



IfLAGl OPEN 



WARN{ OPEN 
PATPNT! OPEN 



jADL'hESS or CURRENT DRllL UNDER TEST 

J ADDRESS OF CURRENT DPilM UNDER TEST 

JPOINTS TO DRULS TO BE EXERCISED 
JPOINTS TO OFllMS TO BE EXERCISED, 
IPOINTS TO DRULS »^1TH H89i3 INSTALLED, 
IPOINTS TO DRUMS WITH H8913 INSTALLED, 
, POINTS TO DRllL AND DRUM CABLED PAIR, 

IGETS LOADED FROM VECTOR OR VECT2 OF DEVICE UNDER TEST, 

fSAM.E AS DRVCT ONLY CALCULATED FROM DEVICE CSR, 

IPRIORITY OF DEVICE AS CALCULATED FROM DEVICE CSR, 

{POINTER 10 CURRENT DEVICE UNDER TEST, 

ICONTAINS LOOP COUNT 

ICO^-TIANS NUMBER TO SET ITCNT TO 

UN ORDER 10 GET 1 MIN, OF RUN TIME, 

JRESTRT MAY VARY THIS NUMBER IF RUNNING 

fMULTIPLE DEVICES IN ORDER TO SHORTEN RUN TIME, 

J FLAG USED TO INDICATE IF AN 

UnTEPRUPTED OCCURED 0aNOU=-YES, 

{FLAG USED TO TYPE A WARNING MESSAGE IF = 0, 

{POINTS TO CURRENT PATTERN, 



{THIS SECTION WILL TAKE ALL THE INFORMATION AS 
{ENTERED BY THE USER AND MAKE CORRESPONDING 
{SOFTWARE FLAGS, 



STARTi 


MOV 


DVIDljRl 


{DEV COUNT TO Rl 


1$: 


A5R 


RJ 


ISHIFT IN A BIT 




BCS 


2S 


{IF A BIT IN THIS POS-SHIFT 




BEQ 


3S 


{IF NO DEVS LEFT " BRANCH 




PP 


IS 




2SI 


ADD 


S3,1NTR 


J 3 MORE INTERRUPTS 




ADD 


S3»WDT0 


{3 MURE WORDS TO MEM 




ADD 


»3#WDFP 


>3 MOPE WORDS FROM MEM 




BR 


IS 


{GO CHECK SOME MORE 


3SI 


TST 


APDP 


{ANY DRUL ADDR, ENTERED? 




BMI 


ST2 


{YES -^E CAN PROCEED, 




TST 


ADDR2 


{iNiO L*S BUT IS ANX DRUM ADDR, ENTERED? 




bMI 


ST2 


{ YES-PROCEED, 




JMP 


DROP 


{NU»NO DRUL OR DRUM-LETS DROP THIS MODULE 
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493 


000354* 


005767 


177426 




494 


000360' 


1000U 






495 










496 


000362* 


016767 


177426 


177654 


497 


000370* 


046767 


177422 


177646 


498 


00tj376' 


016767 


177412 


177634 


499 










500 


000404* 


005767 


177614 




501 


000410' 


100011 






502 










503 


000412' 


016767 


177376 


177626 


504 


fr'00420' 


046767 


177372 


177620 


505 


W00426' 


016767 


177362 


177606 


506 










507 


000434* 


016767 


177354 


1 77606 


508 


P00442' 


046767 


177576 


1 77600 


509 


000450' 


046767 


177572 


177572 


510 










511 










512 










513 










514 










515 










516 


000456' 


012767 


000001 


177574 


517 


ci0?4f.4' 


(-16767 


l''73i6 


177536 


510 


H00472' 


036767 


177562 


1 77540 


519 


000500' 


001402 






520 










521 


fc00502' 


005777 


177522 




522 










523 


000506' 


062767 


000004 


177514 


524 


00051 4* 


006367 


177540 




525 


000520* 


103364 






526 










527 










528 










529 










53v! 










531 










532 










533 


000522* 


012767 


0W0P01 


177530 


534 


0005 30' 


016767 


177470 


17747b 


535 










336 


000536* 


036767 


177516 


177476 


337 


000544' 


001402 






33S 










539 


000546' 


005777 


177462 




540 










541 


000552* 


062767 


000004 


177454 


542 


000360* 


006367 


177474 




543 


000564* 


103364 






544 










545 










546 










547 










548 











T5T 


ADDR 




{ANY DRUL ADDRESS FNTEFED? 


BPL 


1$ 




{NO - SKIP NEXT CODE UNTIL 1$, 


MOV 


DVIDl ,SPL 




HES SET UP DPUL FLAGS, 


BIC 


SPl »SRL 




{MAKE DRUL W/H8913 FLAG, 


MOV 


DVinuDvir-L 




{KKEP TRACK OF DRULS SELECTED, 


TST 


AI>DP2 




{ANY DRUM ADDRESSES ENTERED? 


BPL 


2S 




{NO - SKIP NEXT CODE UNTIL 2S, 


MOV 


DVIDI ,SRM 




{YF.S SET UP DRUM FLAGS, 


BIC 


SHI #SPM 




{MAKt DRUM A/8913 FLAG, 


MUV 


DVIDUDVIPM 




{HEFP TRACK OF DRUMS SELECTED, 


MOV 


DVIDl ,SHb 




;H0> MAKE A FLAG TO 


BIC 


SHL#SR6 




tStiOm HOw MANY DRULS ARE 


PIC 


5PM, SRB 




{CONNECTED TO DRUMS 


{THIS 


SECTION OF CODE 


WILL ADDRESS ALL DRULS 


{SELECTED FOR TFST, 


IF 


AwY DRULS FAIL TO RETURN 


{SLAVE 


-SYNC TO thf; 


CPU 


, A "SYS ERP" WILL OCCUR 


1 

MOV 


f*UPOINT 




{SET UP POINTER, 


MOV 


A^DRrDRLADP 




{POINT TO FIRST DRUL ALDRESS. 


BIT 


POINT, DVIPL 




{ANY DRUL SELECTED? 


BFO 


2S 




{NO - GOTO 2S, 


TST 


(aORLADR 




{YES - ADDRESS THE DRUL, 


ADD 


#4,DRLADP 




{UPDATE TO LOOK AT NEXT DRUL ADDP, 


ASL 


POINT 




{POINT TO NEXT DEVICE, 


BCC 


1$ 




{LOOP IF NOT LOOKED AT ALL POSSIBLE 


1 

{THIS 


SECTION v^JLL 


ADDRESS ALL DRUMS SELECTED 



IFOR TEST, IF ANY DRUMS FAIL TO RETURN 
{SLAVE-SY^'C TO THE CPU, A "SYS ERR" wILL OCCUR, 



MOV 
MOV 



BIT 

BEQ 



ADD 
ASL 
BCC 



#upniNT 

ADDp2f DRMADR 



POINT, DViDM 
4S 



#4, DRMADR 

POINT 

3S 



{SET UP POINTER, 

IPOINT TO HRST DRUM ALUR. 

{ANY DRUM SELECTED? 
{NO » GOTO 4$, 

{YES - ADDRESS THE DRUM, 

{UPDATE TO LOOK AT NEXT DRUM ADDR, 
?P0INT TO NEXT DEVICE, 

{LOOP IF NOT LOOKED AT ALL POSSIBLE DRUMS, 



{THIS SECTION OF CODE WILL COMPARE THE VECTOR ADDRESS 
I ENTERED PY THE npfpATOR AGAINST THE VECTOR ADDRESS 
{CALCULATED PY THE PROGRAM FOR THE DRUL BY READING 
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549 










550 










551 










552 


fc00S66' 


012767 


000^-01 


177464 


533 


000574' 


('16767 


177206 


177426 


554 


000602' 


016767 


177202 


177442 


555 










55b 


£'«50610' 




177454 




557 










55S 










559 


000614' 


4^36767 


177440 


17741^ 


560 


0P0622' 


001474 






561 


0Wk3624' 


0lb767 


177 40t? 


177246 


562 










563 


01)0632' 


C'26727 


177414 


000100 


564 


ni(*P640' 


002020 






565 










566 


000642' 


C12767 


000015 


177236 


567 










568 


000650* 


104405 


000000 ' 


00000f" 


569 










570 










571 










572 










573 










574 


04^0656' 


005067 


177356 




575 


e'00662' 


005067 


177356 




576 


1200666' 


005067 


177356 




577 


000672' 


104403 


00P00'3' 


003154' 


578 


ki00700' 


000456 






579 


000702' 


016767 


177322 


177170 


580 


000710* 


004767 


002010 




581 










582 


000714' 


026767 


177332 


J77332 


583 










584 


000722* 


£'01420 






585 










586 










587 


000724' 


104405 


000000* 


000000 


588 










589 










590 


00(^732' 


046767 


177322 


177300 


591 


('00740' 


046767 


177314 


177276 


592 


0k/0746' 


046767 


177306 


177274 


593 


000754' 


104403 


000000* 


003154' 


594 


0Pk3762* 


000414 






595 










596 


000764' 


005767 


177300 




597 


000770* 


001<'^1 1 






598 










599 


00-^772' 


026727 


177260 


000005 


600 


00100«l' 


003405 






601 










602 


001002' 


104403 


000000' 


003144' 


603 










604 











NOV 

MOV 



RIT 

MOV 

CMP 
BfiE 



K 1 , POINT 

ftDrp#DRLADP 

VFCTOn,nHVCT 



POINT, uvini, 
4S 

DPT-ADP,CSRA 

DPVCT» «100 
2S 

#1 5.ERRTYP 



KRDER8,BEGIK',NULL 



Chf- UVIDL 

CLP SBL 

Cl-R SPB 

KSGNS,BEGIN,MS4P 

BR 5S 

MOV DPLADR,C5PA 

JSR PC#GFTVP 



PRVCT, VCTCAL 



jSEl UP POlNTtH, 

}&F.T UP FIRST DRllL APDRtSS, 

jSET UP FIRST DRllL VECTOR ADDR, A5 

jbNTEPED PY USER, 

I INDICATE THAT '*0 WARNING MESSAGE, 
;HAS HEEN TYPED, 

JANV CRUI- SELECTED? 
thO GOTO 4S. 

jSET DRUL ADDR. FOR EKPOR TYPEOUT (IF ANY), 

jTS VECTOR ADOR, > 100? 
;1S YES GOTO 2S, 

jWpOwG VEC ADDR, 

tjDRllL VECTOR LESS THAf^ 100 



r^UlE IF ANY VECTOR WERk ALLOwED 

110 BE LESS THAf^ 100f IT COULD 

J INTERFER wITH SOFTWARE TRAP CALLS, ETC, 

jnROP ALL SOt-TWARE 

jFLAGS THAT POINT TO ANY DRULS, 

jftSCIl MESSAGE CALL WITH COMMON HEADER 
JEXII THIS TEST 

jSET DRllL ADDR, FOR TYPEOUT (IF ANY), 
;G0 GET VECTOR + PRIORITY FROM URllL CSR 

inOFS THE USER ENTERED VECTOR ADDRESS AGREE 
J^-ITH THE ADDRESS READ FROM THE CSR? 
jbR IF YES TO 3S, 



HfiOEP$, BEGIN, FULL ; EN'iERED VEC ADDR NOT SAME AS ONE IN CSR, 

; «««««««««#«#««««««»#«#^ 



BIC pfiINT,DVTnL 
BIC POIKTrSPL 
PIC POINT, SPB 

MSGNS, BEGIN, MS4P 
PR 4S 



TST 
BNE 



CMP 

BLE 



wAprj 

4S 



PRIOR, «5 
4S 



MsGNS, BEGIN, MS2P 



JYE5, 



jDROP ALL SOFTWARE 
IFLAGS THAT POIMT TO 
?ANY DHULS 

lASCII MESSAGE CALL WITH COMMON HEADER 
;GOTO 4S 

;HAS ANY WARNING MESSAGE BEEN TYPED OUT? 
ntS - GOTO 4$ 

>N0, IS THE PRIOPII'Y OF THIS DEVICE > 5? 
!^0 GOTO 4S 

lASCII MESSAGE CALL WITH COMMON HEADER 
jTEXl! WARNINGl ORUL/H PRIORITY IS 
JGRFATER THEN 5, THIS MAY INTERFER ^ITH 
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605 










606 


001010* 


005267 


177254 




607 










608 


001014' 


t 62767 


0P0P04 


1 77206 


609 


001022' 


062767 


00fi004 


177222 


610 


001030' 


C06367 


177224 




611 


0010J4' 


103267 






612 










613 


001036* 








614 










615 










616 










617 










618 










619 










620 


001036* 


012767 


000pr»i 


177214 


621 


001044* 


016767 


177154 


177162 


622 


(3^^105^* 


fal6767 


17715^ 


177172 


623 










624 










625 


001060' 


036767 


177174 


177154 


626 


001 066* 


001477 






627 










62P 


001070* 


016767 


177140 


177002 


629 


001076* 


026727 


177150 


000100 


630 


001 104* 


002020 






631 










632 










633 


001 106' 


^"12767 


00^015 


176772 


634 










635 


001114' 


104405 


000000 ' 


000000 


636 










637 










638 










639 










640 










641 


001 122' 


005067 


37711 4 




642 


001126' 


005067 


177114 




643 


00U32' 


005067 


177)12 




644 


6;01 136' 


104403 


00?I000' 


003154' 


645 


001 144' 


000461 






646 










647 


001 1 16* 


016767 


177062 


176724 


648 


001 134' 


004767 


001544 




649 










650 


001 160' 


026767 


177066 


177066 


651 










652 


00U66' 


001423 






6S3 










634 


001170' 


ei2767 


000015 


176710 


655 










656 


001176* 


104405 


000000' 


000000 


6S7 










658 










659 


001204* 


046767 


177030 


177030 


660 


001212' 


046767 


177042 


177026 
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;ERR0H EXtCUTIOtM OF OTHER DEC/Xll MODULES, 
INC WARM IPECUPD HAVING TYPED OUT THE WARNING MESSAGE, 

AFD #4,DRLADR jUPDATE TO POINT TO NEXT DRllL ADDR, 

ADD »4,[)RVCT jLOOh AT NEXT VECTOR, 

ASL POINT .'POINT TO NEXT DPUL, 

BCC IS J IF WF, HAVENT LOOK AI ALL, LOOP, 



jThlS SECTION OF rODF. «1LL COMPARE THE VECTOR ADDRESS 
JENTERED PY THE OPERATOR AGAINST THE VECTOR ADDRESS 
;CALC!FLATP"D BY THE PROGRAM FOP THE DRUM BY READING ITS CSR 
t 



MOV 


#t , POINT 


JSET UP POINTER, 


MOV 


AnDR2jDFMAnp 


5SET UP FOR FIRST DRUM ADDRESS, 


MOV 


VtCT2#DRVCT 


;SET np FIRST DRUM VECTOR ADDR, AS 






JENXERED BY USER, 


PIT 


POINT, UVIDM 


>ANY DRUM SELECTED? 


BFQ 


B€ 


>N0 - GOTO 8S, 


MOV 


nFMADR,CSRA 


>SET DRUM ADDR, FOR TYPEOUT (IF ANi). 


CKP 


DPVCT» «100 


US VECTOR ADDR, > 100? 


BGE 


7S 


{IF YES GOTO 78, 






JNO, 


MOV 


»15,ERRTyF 


fwRONG VEC ADDR 


HpDEPS 


, BEGIN, NULL 


UDRUM VECTOR LESS THAN 100 


J *«««««#«»««««»«*#««*««««««««««*«*««««««««««««««««««•«*««««««««« 






jNOTEl ir ANY VECTOR WERE ALLOWED TO BE LESS 






» THAN 100, IT COULD INTERFER wiTh 






1 SOFTWARE TRAP CALL, EfC, 


CLR 


DVIDM 


fCLEAR ALL SOFTWARE FLAGS THAT 


CLR 


SRM 


IPOXNT TO ANY DRUMS, 


CLR 


SPB 




MSGNS, 


eEGIN,Ms4F 


JASCII MESSAGE CALL WITH COMMON HEADER 


BP 


inpiNT 


»G0TO IDRINT, 


MOV 


DRMADR,CSRA 


ISET DHU^* ADDR, FOR TYPEOUT (IF ANY), 


JSR 


PC»GETVP 


»G0 GET THE VECTOR + PRIORITY FROM DRUM CSR 


CMP 


DPVCT,VCTCAL 


jDOES THE USER ENTERED VECTOR ADDRESS AGREE 






IWITH THE ADDRESS READ FROM THE CSR? 


BEG 


71S 


;BR IF YES TO 718, 


MOV 


815#ERRTYP 


fWRONG VEC ADDR, 



HRDERS, BEGIN, nulL uUSER ENTERED VECTOR ADDRESS NOT SAME AS ON READ IN CSR 



BIC 
BIC 



POINT, DVIDM 
POINT, SftM 



I DROP ALL SOFTWARE 
JFLAGS IriAT POINT TO 
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6bl 


00l22e* 


046767 


177<?'34 


1 77022 


PIC 


POINT, SP& 


662 


001 226' 


104403 


000000 * 


0031S4' 




,BECI^',^*S4P 


663 


00 1 23 4 * 


0004 1 4 






BP 




664 














665 


001 236 * 


005767 


17 7^26 


7 1 $ 1 


TST 


WARN 


666 


H01 242 ' 


001 011 






BN£ 


8$ 


667 














668 


001 244 * 


026727 


1 7 7 pi f-l ft 


000005 


CMP 


Pf' lOR 1 # S 


669 


y0 J 25 2 * 


003405 






BLE 


8 S 


670 














671 














672 


1 1 2 5 4 * 


1 044(^3 


000000 * 


003144' 




,9EC;tN,ms2P 


673 














674 














675 




























677 


1 2 6 2 * 


_ 


1 77002 




I NC 


WARN 


678 














679 




062767 


000004 




AHD 


8 4 f ORMADR 


680 


001 274 ' 


062767 


000(^04 


176750 


ADD 


»4#DRVCT 


68 ! 


k*01 302 ' 


006367 


176/52 




A5L 


pniMT 


682 




103264 






BCC 


6S 
















684 














685 










f THIS 


SECTION WILL Dl 


686 










} TEST 


WILL INTERRUPT 


687 














668 


001 31fi* 


F 1 6767 


176472 


176712 IDPINTI 


f'CV 


ADDP#DRliAnR 


689 


001 3 1 6 ' 


016767 


1 76702 


176712 


MOV 


AnDR2# DRMDbh 


690 


001 324 ' 


062767 


000002 


176704 


APD 


I2»0RMDPP 


691 


001 332 ' 


012767 


000001 


1 76720 


Moy 


« i fPOiNT 


692 














693 


001 340 ' 


036767 


176714 


176672 161 


BIT 


POINTiDVIDL 


694 


00] 346 ' 


001476 






BEQ 


SS 


695 


001350' 


016767 


1 76654 


176522 


VOV 


DPLADR,CSPA 


696 


001356' 


004767 


001 342 




JSR 


Pr#'^ETVP 


697 


001362' 


012777 


001524 * 


1 76664 


MOV 


«4trt*VCTCAL 


698 


001 370 • 


005067 


176672 




CI'R 


IFLAG 


699 


001 374 ' 


036767 


176660 


1 76646 


BIT 


POINT, SRB 


70(1 


001 402 ' 


001 004 






BNE 


2$ 


701 














702 


001 404 ' 


052777 


000400 


176616 


BIS 


>RIT08,0DPLAI 


703 


001412' 


000402 






Bp. 


31 


704 














705 


001414* 


005077 


176616 


2SI 


CLR 


enpMDtP 


706 














707 














708 


001420* 


052777 


000500 


176602 3$l 


BIS 


«R1T06|BIT08, 


709 














710 


001426* 


000240 






NOP 




711 


001430' 


005767 


176632 




TST 


IFLAG 


712 


001434' 


001402 






PFQ 


31S 


713 


001436' 


104400 


000f £^0' 




EXITS. 


rBEGIN 


714 














715 














716 


001442' 


017767 


176562 


176432 31SI 


MOV 


eDRLADP,ACSR 



fAl»Y UPllMS, 

lASClI "1ESSAGE CALL wITI^ COMMON HEADEP 
IGOTO 8$, 

;HAS ANY WARNING MESSAGE BEEN TYPED? 
»IF YES « GOrO 8$ 

|N0, IS THE PRIORITY OF THIS DEVICE > 57 

INO • GOTO 8S. 

JYES, 

JASCII MESSAGE CALL «ITIi COMMON HEADER 
JTEXTI WAPNINGI DRllL/M PRIORITY IS GREATER 
ITHF.N 5, THIS MAY INTERFEP WITH ERROR FREE 
JEXFCUTION OF OXHEH UECXil MODULES 



lUPPATt TO POINT TO WEX'i DRUM ADDR, 

ILUOK AT NEXT VECTOR 

fPOINT TO NEXT DRUM 

MF WE HAVENl LOOKED AT ALL, LOOP, 



ISET ADDR, OF 1ST DRUL (IF ANY). 
ISET ADDR OF IST DRUM tIF ANY). 
IFXX ADDR, OF DRUM'S DBR, 
IPOINT TO 1ST ONE. 

fANY DRUL AT THIS POINT? 

ill NO - GOTO 5S, 

IRECORD ADDR, OF DRUL, 

fGET VECTOR ADDR. 

ISFT VECTOR ADDR. INTR TO "4$", 

ICLEAP HAS INTERRUPTED FLAG, 

lis IT CABLED TO A DRUM? 

} IF igS GOTO 2$, 

JNO - SET BIT08 I'^ CSR TO GENERATE INTR, 
IGUTO 3$, 

ILOAD DRinS DBR WITH DATA - THIS. 
JSHOULD CAUSE DRUL TO INTR, 

RLADP ISET INTR, ENABLE, 

iGIVE Tlf^E TO INTERRUPT (NO BREAK NEED, INTK, IMMKD,), 
>HAS DEV. INTERRUPTED(IFLAG=l)? 
iNO THEN REPORT AN ERROR, 

lEXIT TO MONITOR, MODULE WAIT FOR INTERRUPT, 
ICONTINUE AT THE POINT AFTER 
ITHE INTR, SERVICE ROUTINE, 
ISAVE CONTENTS OF CSR FOR TYPEOUT, 
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XDREC0, 


,Pn 27-MAR-79 


08157 




717 










718 


001450' 


(M2777 


0005«^fe' 


176552 


719 










720 


00J456' 


012767 


00002 3 


176422 


721 










722 


001464' 


104405 


000000* 


000000 


723 










724 










725 


001472' 


046767 


176562 


176544 


726 


001500' 


046767 


176554 


176542 


727 


001506' 


046767 


176546 


176524 


728 


001514* 


104403 


000000* 


003154 


729 


001522' 


000410 






730 










731 


001524* 


M42777 


00^3500 


176476 


732 


001532' 


005267 


176530 




733 










734 


001536' 


000004 


000000* 


001544 


735 










736 










737 


001544' 


062767 


000004 


176456 


738 


001552' 


062767 


000004 


176456 


739 


001560' 


006367 


176474 




740 


001564' 


103265 






741 










742 










743 










744 










745 










746 










747 


001566' 


f*167fi7 


176214 


176436 


748 


001574* 


016767 


176424 


176432 


749 


001602' 


062767 


000002 


176422 


750 


001610' 


<^12767 


000001 


176442 


751 










752 


001616' 


036767 


176436 


176416 


753 


001624' 


001476 






754 










755 


001626' 


016767 


176402 


176244 


756 


001634' 


004767 


001064 




757 


001640' 


012777 


002002' 


176406 


758 


001646' 


005067 


176414 




759 










760 


001652' 


036767 


176402 


176370 


761 


001660* 


001004 






762 










763 


!b01662' 


052777 


000400 


176344 


764 


001670' 


000402 






765 










766 


001672' 


005777 


176334 




767 










768 










769 


001676' 


052777 


000100 


176330 


770 










771 


001704' 


000240 






772 


001706* 


003767 


176354 





8$l 
9St 



BIC tPIT06|BIT08,@DRLADR 
MOV 8?3,ERRTYP 
HRDER$, BEGIN, NULL 



ICLEAP INTR ENABLE 
fNO INTERRUPT 
||N0 INTEPHUPT FROM DRUL 



BIC POINT, SRL 

BIC POINT, SRB 

BIC pr.n!T,DVIPL 
MSGN3, BEGIN, Ms4p 
BP ^iS 



JDROP THIS DEVICE FROM 

lANY DRUL PRESENT FLAGS (FRO!' CON, FLAG), 
;(FROM SINGULAR FLAG) 

» ASCI I MESSAGE CALL WITH COMMON HFADEP 
I GOTO 5S, 



BTC 
INC 



«RIT06lBIT08,(aURLADP jDEVICE INTR, TO HERE, CLEAR INXH. ENABLE 
IFLAG JJNDICATE DEV HAS INTR . ( IFLAG=1 ) . 



PIR0S,BEGIN,5$ 



J QUEUE UP TO CONTINUE AT 5S AND RTJ 



ADD «4,DRLADR 

ADD #4,DRMDBP 

ASL POIf'T 

BCC 1 S 

f 

JTHIS SECTION OF CODE WILL DETERMINE IF ALL DRUMS SELECTED FOR 
jTEST WILL INTEPRUPT. 



JPOINT TO ADDRESS OF NE/1 DHUL 

»P0INT TO NEXT ADDRESS OF DRUM (SHOULD THEY HE CABLED) 
;SET POINTER TO NEXT 
UF NOT DONE ALL, LOOP. 



MOV 
MOV 
ADD 
MOV 

BIT. 
BEQ 

MOV 
JSR 
MOV 
CLP 

BIT 
BNE 

PIS 
BP 



NOP 
TST 



A0DR,DPLDBP 
AnDF2,DRMADP 
«2,DRLDBP 
»1 , POINT 

POINT, OVIDM 
US 

DRMADP,CSRA 
PCiGETVP 
#10S,!3VCTCAL 
IFLAG 

POINT, SRB 
8S 

#BIT08,PDPMAOP 
93 



ISET UP BASE DRUL ADDR 
ISET UP BASE DRUM AuDR, 
ILOOK AT DRUL DBR. 
ISET TO POINT AT FIRST DRUM, 

lANY DRUM AT THIS POINT? 
I NO - GOTO US, 

IDRUM ADDR GOES IN CSRA FOR GETVP, 

IGET DRUM VECTOR, 

ISET INTR, VECTOR TO 10S, 

ICLEAR HAS INTERRUPTED FLAG, 

lis DRUL CABLED TO DRUM? 
lYES GOTO 8S, 

|N0 - SET BIT08 a CSR TO GENERATE INTR, 
IGOTO 9S, 

IREAD DPUL'S DBR, THIS wILL 
ICAUSE DRUM TO INTR, 



#PIT06,PDRMADR fSET INTERRUPT ENABLE, 



IGIVE TIME FOR DEV, TO INTR, 

IHAS DEV INTERRUPTEDCIFLAGslJ? 
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) 



773 


00 J 7 1 2 * 


001 402 






774 


00 1 7 I 4 » 








775 










7 76 










77 7 










7 78 






176310 




779 




042777 


POk!500 




In'' 


001734 


01 2767 


0000? 1 


176144 


7 81 










7fi2 


1 742 * 


1 04 405 


00000''' * 


000000 


783 










784 










765 


1 7 5 * 


04676 7 


176 304 


176264 


7 8 6 


OG 1 756 ' 


046767 


176276 


176262 


787 


0^1764' 


046767 


176270 


1 76256 


788 


001 772 * 


104403 


000000 * 


00315 4* 


789 


002000 ' 


0004 ! 
















791 


00200 2 * 


042777 


000500 


176224 


792 


0020 1 


005 26 7 


176252 




793 










794 


00201 4 * 


000004 


000000' 


002022 * 


795 










796 










797 


002022* 


062767 


000004 


176204 


798 


002030' 


062767 




176174 


799 


fc02036' 


006367 


176216 




800 


002042* 


103265 






801 










802 










803 










804 










805 










806 


002044 


S^l 6767 


176214 


1 76 210 


807 










808 










811 










812 










813 


2J0205 2 


w Id 5 " I 






8 1 4 


lyiy * 3 ^ 


012767 


00000 1 


176176 


8 I 5 


002062 




1761 72 


176154 


o!^ 


iOV}2r' f 10 


1 W 1 4 






817 


00207 2 ' 




1 




818 


002 1 00 ' 


001 010 






819 


002102* 


036767 


176152 


1761 40 


820 


002110' 


001004 






821 










822 


f^02U2' 


006367 


176142 




823 


002116* 


001361 






824 


002120' 


000402 






825 










826 


0^2122* 


005 2P1 






827 


002124' 


0fc0772 






828 











BF.O 91 S 

fXlTS ,BFGIN 



1081 



fi-^O-lHFN REPORT AN tPROP, 

J EXIT TO WONITOH, MODULh ^hl £ FOP IMEPKUPT , 
;C0NTIN Jt AT THE PUIM AFTEH 
J THE INTEPhUPT SERVJCfc ROUTINE, 



MOV (3nF(-lACR,ACSP jSAVF CONTENTS OF CSH FOR TYPEOUT, 

BIC «»BIT06|BlT0H»iaDRMADK |H£PE 

MOV ji23,KPRTYP |H0 INTERRUPT OCCUPRED 

; #^«»*«»»«» 

HHDER$,BtGTN,NULL nDRllM FAILED TO INTERRUPT 



6IC POINT, DVinM 

RIC F0INT»SRM 
EilC pniNT,SPB 
MSGNS, BEGIN, MS4P 
BR 1 IS 



jDROP THIS DRUM FROM ALL SOFTWARES 
JFLAGS, 



JASCII MESSAGE CALL WITH COMMON HEAOER 
jGOTO lis. 



BIC 
INC 



«HTflb iBIT08,?DRMAOR fDEVICE INTR, CLEAR INTR ENABLE, 
IFLAG JI'MHICAIE DRUM INTERRUPTED, 



PIRQ$,BEGIN, 1 IS 



I QUEUE UP TO CONTINUE AT US AND RTl 



ADD ?»4,DRMADF jADD TO ADDRESS BASE TO 

ADD #4,DPLDPR iLOOK AT NEXT ADDRESS RANGE, 

ASL POINT jSET POINTER TO NEXT, 

BCC 7S JIF NOT DONE ALL, LOOP, 



jINTEPHUPT ♦ DATA CHECKING SECTION 
fPEENTgy POINT AFTEP "END l-ASS", 



PESTPTl MOV 



1TSET,ITCNT 



jPRESET ITERATION COUNT, 



jTHlS SECTION OF CODE WILL FIX ITCNT SO THAT IF RUNNING 
JMULTIPLE DEVICES* IT SHOULD ONLY TAKE THIS MODULE 1 HIN, 



CLR 


PI 


jCOUNT DEVICES IN Rl, 


MOV 


«l. POINT 


!FIX POINTER. 


HIT 


POINT, SRL 


>ANY 0P11L*S AT THIS POINT? 


BNE 


3S 


JYES THEN COUNT IT. 


BIT 


POINT, SPM 


|ANY DRUM'S AT THIS POINT? 


BNE 


3S 


>YES THEN COUNT IT, 


BIT 


POINT, SPB 


|Al^^Y PAIR AT This POINT? 


BNE 


3S 


;YES THEN COUNT IT 


ASL 


POINT 


jFIX POINT TO LOOK AT NEXT SET, 


BNE 


IS 


IIF NOT LOOKED AT ALL P01NTS»I. OOP, ELSE EXIT 


BR 


as 


jEXn IF ALL POINTS TESTED, 


I NX 


HI 


iCOn^T THIS DEVICE 


PR 


7S 
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XDRECe.PU 27 


-HAP«79 


08157 










029 


032126' 


162701 


000002 




4$: 


SUR 


!»2,P1 


830 
















831 


002132' 


162701 


!^0<4r02 




5St 


SUB 


S2,P1 


832 


002136' 


100404 








BFI 


6S 


833 


002140' 


062767 


006r0-.4 


176114 




ADD 


S6000, ITfNT 


834 


002146' 


000771 








BR 


5S 


835 
















036 


002150' 


005767 


175662 




6Sl 


TST 


ICCNT 


837 


C102154' 


001003 








BNE 


7S 


838 


0W2156' 


^16767 


1 76100 


1 75ttS2 




MOV 


ITfi^ T, irONT 


839 


002164' 


( 12767 


0^^3042' 


176100 


7S! 


MOV 


«PATLST,PATPNT 


840 
















841 


L02172' 


016767 


1 75615? 


1 76030 


LOOPI 


MOV 


ACDH,nRLADR 


842 


002200' 


016767 


175602 


176024 




MOV 


ADr'R,DRLD8R 


S4i 


002206* 


062767 


000002 


176016 




ADD 


«?,nRLDBR 


844 


002214* 


016767 


176004 


176012 




MOV 


Al"UF2,0R^'ADR 


845 


002222* 


^Jl6767 


17F>776 


176006 




MOV 


AI^DP2,DPMnBR 


846 


002230* 


062767 


000 002 


1 760k-'0 




ADD 


#2,DPMDP« 


847 


002 2 36* 


012767 


000001 


176014 




MOV 


«1 .POINT 


648 
849 


0022 44* 


005767 


175774 






TST 


5FL 


850 


002250* 


00101 3 








BNE 


M»<OPK 


851 


002252* 


f-05767 


175770 






TST 


SPM 


852 


002256* 


001010 








BNE 


MWORK 


853 
















854 


002260' 


005767 


175764 






TST 


SPB 


855 


Ok;2264* 


001 005 








PNE 


M.^ORK 


856 
















857 
















858 


002266' 








DROP I 






859 


002266' 


104403 


00Uf00' 


003150' 




MSGNS 


,HEGIN,M53P 


860 
















861 
















862 


002274' 


104410 


000000' 






ENDS, 


PEGD 


B63 
















8b4 
















865 
866 


002300' 


036767 


175754 


175740 


MI«j0PK| 


PIT 


POINT, SRM 


867 


002306' 


001404 








BEO 


IS 


868 
















869 


002310' 


052777 


0fc0400 


175716 




BIS 


#PIT08,(aDPMADP 


870 


002316' 


000406 








RP 


2S 


871 
872 


002320' 


036767 


175734 


175722 


ISJ 


BIT 


POINT, SPB 


873 


002326' 


001 4 30 








BEQ 


L^-ORK. 


874 
















875 


002330* 


005777 


175676 






TST 


aOPLDBR 


876 
















877 


002334* 


4 16767 


175674 


175536 


28i 


MOV 


DpMADPiCSPA 


878 
















079 


002342' 


0P'4767 


000356 






JSP 


PCGETVP 


880 
















881 


002346' 


012777 


002366' 


175700 




MOV 


»M5ERV,flVCTCAL 


882 
















883 


0023S4' 


052777 


000100 


175652 




BIS 


#BIT06,IDRMAOH 


884 


0023S2' 


104400 


000000' 






EXITI 


, BEGIN 



jITCrtT ALREADY SET FOR FIRST 2 DEVICES, 
;ANY MORE DEVICES? 

;N0 THEN EXIT RIGHT COUNT IN ITCNT, 
;YES UPDATE ITC^T FOR LESS IlfcRAUONS, 
JLOOK FOR MOHE, 

jFIPST TIME THROUGH? 
JNO BRANCH 
;YES - SET UP ICONT 
JSET UP PATTERN POINTER. 

jSET BASE ADUR, OF DRUL CSH, 
ISEf BASF AODR Of DRU DbR, 
jEQUAL CSH+2, 

;SET BASE ADUR, OF DRUM CSR, 

ISET BASE ADDR, OF DRUM DBR 
JEQUAL CSP+2, 

jPOINT TO FIRST DRUL AND/OH LRU^, 

jAfJY DRlirS LEFT TO TEST? 

;VES CONTINUE TESTING, 

;N0 - BUT ARE THE ANY DRUMS LEFI? 

J YES - GO WORK ON IHEM, 

;N0, 

JANY CABLED lOGETHEH? 
jYES-GO ^ORK ON THEM, 



JASCII MESSAGE CALL wITH COMMON HEADER 
iTEXTi "DFEA - NO MORE WORDS TO 
;EXERCISE". 

; 

JDEC/XU END CALL TO DRCp THIS SOFTWARE 
{MODULE FROM CURRENT PUN, 

fANy SifJGULAR DRUMS FOR TEST? 
JNO - GOTO IS, 

lYES, SET BIT08 IN CSR TO GENERATE AN I^TR, 
JGOTO 2S, 

}ANY DRUL CABLE TO DRUM AT THIS POINT? 
JNO - GOTO "LWOHK", 

jYES - READ DRULS DBR THIS WILL CAUSE 
JURIIM TO INTR, WHEN ITS INTH, t.^PLE IS SET 
jPUT CURRENT ADDR, IN C5RA FOR GETVP, 

jGET DRUM'S VECTOR ADDR, 

ISET UP VECTOP ADDH, INTH TO MSERV, 

jSET INTERRUPT ENABLE, 

JEXIT TO MONITOR. MODULE wAIT FOP INTERRUPT^ 
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887 
898 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 



«02366' f^42777 
0^32374* 0PP«004 

0024(^2' 017777 



IJ02410' 
002416' 



002420' 
td02426' 



002430' 
002436' 



002442* 
002450* 



036767 
001004 



036767 
001 501 



016767 
r04767 



012777 
052777 



00050tJ 
000000' 

175664 
175644 



175574 
00«262 



002462' 

000500 



002456' 104400 000000' 



002462* 
002470' 



U42777 
000004 



000500 
000000' 



175640 MSFPVI 
002102* 

175626 MDELi 

175626 LWORKi 

175^22 

175442 l$l 



175604 2SI 
175552 



175540 LSf.RVj 
002476' 



fSriOULD IWIERRUPT TO MSKRV, 
JDRIIM INTFPPUPTS TC HERE 

BXC «PIT06|BIT08#|DRMADR fCLEAR DfcVICfcS P'TF, ENAliLE 



I QUEUE UP TO CONTINUE AT ^''DEL ANU RTA 



PPATPNT,0URHDBP jLUAD PATTERN INTO DBR OF DRUM, 



BIT 



BIT 
BFQ 



MOV 
JSP 



POINT, SRL 
IS 



POIMT,SPB 
LOOPE 



DNLADP,CSRA 
PCGETVP 



jSINGULAH DRllL FOP TEST CW/H8913)? 
JYES - GOTO IS, 



>ANY DHlXh/^ PAIR AT THIS POIMT? 
fNO « GOTO LOOP END, 



JPUT ORUL ADUR IN CSRA FOR GETVP, 
fGO GET DPllL'S VECTOR ADDRESS. 



MOV #I.SH:RV,0VCTCAL jSET UP DRllL VECTOR TO INTR, TO LSERV, 

BIS ««^IT0PIBII06,51DRLADR fSET INTERRUPT ENABLE (063 ANU BIT08t 

J08 NO EFFECT IF CABLED PAIRf HOWEVLg ^ILL 

JCAUSE DBUL W/H8913 TO INTR, 
FXITS, BEGIN fEXIT TO MONITOR, MODULE i^lAIT FOR INTERRUPT, 

JDRUL INTRS, TO HERE 

BIC »eiT06|PIT0R,(3DRLADR iCLEAR INTR, ENABLE, 



PIPQS, BEGIN, LDEL 



» QUEUE UP TO CONTINUE AT LDEL AND RTl 



002476' 


036767 


175556 


175544 


LDFLj 


PIT 


POINT, SRB 


002504' 


001434 








PEQ 


23 


002506' 


017767 


17?520 


175374 




MOV 


aDpLDBB,AWAS 


002514' 


016767 


175512 


175362 




MOV 


DPLDBB,WASADR 


002522' 


016767 


175544 


175352 


l$l 


HOV 


PATPNT#SBADR 


002530* 


017767 


175536 


175350 




HOV 


gPATPriT,ASP 


002536* 


026767 


175344 


175344 




C^'P 


RSB, AWAS 


002544* 


001432 








BFU 


Lr>OPE 


002546' 


104404 


00000«* 






DATEkS 


BEGIN 



002552' 046767 

002560* 0467b7 

002566' 104403 

002574' 000416 



175502 175470 
175474 175460 
000000' 003154' 



fSERVICING DRllL/M PAIR? 
INO - GOTO 2S, 
I YES. 

IPEAD DATA IN DBllL'S DBB, 

ISET FOR ERROR TYPEOUI IF ANY, 

JFOR EHROR TYPEOUT - ADDR OF TEST DAIA. 

>FOR ERROR TEST DATA, 

IDATA SENT = DATA RECEIVED? 

fYES - THEN LOOP END, 

INO, 



JDATA ERROPIII 

} ##«##♦♦#»#»###♦*«*#»##«#»*♦#####**#«##♦#»»«»#•***»*»»*•##«»*#** 

iNOTEl IF TESTING SINGULAR DRUM W/H89U, 
fPATA WAS WRITE/READ FROM DRUM'S DBR, 
lIF DRUL/M PAIR, DATA fcAS WRITTEN 
llNTO DRUM'S DBR AND READ FROM DRUL'S DBH 
JCLEAR ANY FLAGS ASSOC, wIlH DBUL 
lOP DRUL/M PAIR 

fASCII MESSAGE CALL WITH COMMON HEADER 
IGOTO LOOP END, 



BIC POINT, 5RB 

PIC PUINT,SRM 
MSGN$, BEGIN, MS4P 
BP LOOPE 



DREC DEC/XU SYSTEM EXERCISER MODULE 



MACYU 30A(1052) 27«MAF-79 09100 PAGE 21 



XOREC0, 


PI I 27 


-MAR-79 


08157 




94J 










942 


002576' 


036767 


175456 


175442 


943 


002604* 


001412 






944 










945 


002606' 


017767 


175424 


175274 


946 


002614' 


016767 


175416 


175262 


947 


002622' 


016767 


175406 


175250 


948 










949 


002630* 


000734 






950 










951 










952 










953 










954 










955 


002632' 


M62767 


0P)0frip4 


175370 


956 


002640* 


062767 


000004 


175364 


957 


002646* 


062767 


0000M4 


175360 


958 


002654' 


062767 


000004 


175354 


959 


002662' 


006367 


175572 




960 


002666' 


103204 






961 










9b2 


002670' 


062767 


0000W2 


175374 


9ft3 


002676' 


026727 


175370 


003142 


964 


002704' 


001003 






965 










966 


002706' 


012767 


003042* 


175356 


967 










968 


002714' 








969 


>'02714' 


104413 


000000' 




970 










971 


002720* 


P)00167 


177246 




972 










973 










974 










975 










976 










977 










978 










979 










980 
981 










982 










983 










984 










985 










986 










987 










988 










989 










990 










991 










992 










993 










994 


002724' 


017767 


173150 


175324 


995 


002732* 


042767 


177717 


175316 


996 


002740* 


006267 


175312 





LOOPEt 



BIT 


POINT ,SPM 


JSINGLUAR DRUM w/h89l3? 


BEQ 


LOOPE 


;H0 « JUST SINGLUAR DRllL - GOTO 


MOV 


(aDpMDBH,AWAS 


lYES HEAD DATA FROM DRUM'S DBR, 


MOV 


DPMDBR,WASADH 


ISEl FOR ERROR TYPEOUT (IF ANY), 


MOV 


npMADP,CSRA 


;PECOPD ADDR, OF DRUM, 


BP 


18 


;G0 DO DATA CHECK, 


jLOGIC 


LOUP END FOR SINGULAR OR PAIRED DEVICES, 


ADD 


»4,DRLAr)R 


JUPOATE ALL ADDRESS BASFS 


ADD 


«4,DPLnBR 


JTO LOOK AT NEXT 


ADD 


«4,DRMADP 


jSINGULAR DRUL OR DRUM 


ADD 


»4,DRMDBR 


fOR DRUL/M PAIR, 


ASL 


POINT 


fPOJlNT TO NEXT GROUP, 


PCC 


Mi^OPK 


lIF NOT DONE ALL-LOOP, 


ADD 


«2#PATPNT 


jUPDATt TO LOOK AT NEXT PATTERN, 


CMP 


PCTPNT, OPATEND 


IDONE ALL PATTERNS? 


BNF 


2S 


»N0 «• GOTO 2S, 


MOV 


8PATLST,PATPNT 


jYES - RESET PATTERN POINTER, 


ENDITS, 


BEGIM 


JSIGNAL END OF ITERATION, 






»MOMTOR SHALL TEST END OF PASS 


JHP 


Lf^OP 


JNO-LOOP i»iHOLE THING, 



SUBROUTINE TO CALCULATE A VECTOR ADDRESS AND 
PRIORITY OF A DRUL OR DRUM BASED ON INFORMATION 
IN THE DEVICE'S CSR, 

PRIORITY IS CALCULATED FROM CSR BITS 4 t 5 



STATE OF 



BITS 





BIT4 

1 



PRIORITY 
4 
5 



VECTOR ADDRESS IS FOUF^D IN CSR BITS 09»14( 
REPRESENT REAL ADDR, BITS 03-0B 

TO CALL THIS HOUTINEl 

MOV "ADDRESS", CSRA 

JSR PCGETVP 
RETURNS WITHI 

VECTOR ADDRESS IN VCTCAL 

PRIORITY IN PRIOR 



7 

THEY 



MOV 
BIC 
ASR 



»CSRA, PRIOR 
#177717, PRIOR 
PRIOR 



JGET CSR INFORMATION 
fPRlQRITY IN CSR BITS 4 AND 
IRIGHT JUSTIFY 4*5 INTO 
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997 


002744' 


00fi267 


1 75306 






ASP 


PPlOP 


jHiT POSITIONS 1 And 0. 


998 


00275£) ' 


006267 


175302 






ASR 


PRIOR 






002 75 4 ' 


006267 


175276 






ASR 


PRIOR 


>DONE WITH PRIORITY, 


1 000 


002760 * 


052767 


000004 


175270 




BIS 


*4 » PRIOR 




100 J 


















1 002 


002766 * 


017 7 6 7 


1751f''6 


1 75260 




MOV 


BCSf- A, VCTCAL 


>GtT CSR INFORfnATIO'y AGAIN, 


1 003 


002774 • 


042767 


100777 


175252 




BIC 


#100777#VCTCAL 


;STRIPT FOR VECTOR INFORMATION IN BITS 9-14 


1 0^^4 


003002 ' 


0003^7 


175246 






SWAB 


VCICAL 


fCSK PITS 9 10 14 REPRESENT PEAL 


1 00S 


00 300b ' 


006367 


175242 






ASL 


VCTC AL 


fVECTOK ADDRESS BITS 03 TO 08, 


) U06 


00 301 2 * 


006 367 


175236 






ASL 


VCTCAL 


>S0 WE HAD TO PUT fHEM IN THAT POSITION, 


1 007 

i 008 


00 30 1 6 * 


017746 


175056 






MOV 


li>CSRA,-(SP) 


;0K, >^04 Wt NEW BIT02 Ot THE VECTOR ADDH, 


1009 


00 3022 ' 


042716 


177773 






BIC 


#177773, (SP) 


ITHIS IS REPRESENTED BY CSR B1I02 SO *iE 


1010 


003026 * 


052667 


175222 






BIS 


(SP)+,VCTCAr 


jMUST ADO THAT TO THE VECTOR ADDH, 


1011 


003032 ' 


01 7767 


1 75042 


17 5042 




MOV 


(3CSRA#AC5R 


JRECORD STATUS OF CSR» 


1012 


00 3040 ' 


0002*^7 








FT5 


PC 


>EXIT, WORK AIL DONE 


1013 


















1014 












1 






1015 












ITHIS 


IS A LIST OF ALL 


PATTERNS USED BY THIS MODULE. 


1016 












?IT USPS A "FLOAT ZEPO" 


•COhPLEHtrtT" PATTERN, 


1017 












> 






1018 


00 3042 * 


177777 


000000 




PATLST I 


,WCPO 


-1,0 




1019 


■40 30 46' 


177776 


000002 






,WOPD 


-2,2 






30305 2 * 


177 774 


000004 






.WORD 


«4,4 




1021 


003056 ' 


17777(1 


0000 1 






, WOPD 


«10, 10 




10 22 


003062 * 


177760 


000020 






,WOPU 


-20,20 




1023 


003066 ' 


177740 


0rt0040 






,WORD 


-40,40 




1024 


003072' 


177700 


000100 






.WORD 


-100,100 




1025 


003076' 


177600 


000200 






.WORD 


-200, 200 




1026 


003102' 


1 77400 


000400 






.WORD 


-400, 400 




1027 


003106' 


177000 


001 000 






,>«iOPD 


-1000, 1000 




1028 


003112' 


176000 


002000 






.WORD 


•2000, 2000 




1029 


003116' 


174000 


004000 






.WORD 


-4000,4000 




1030 


003122' 


t 70P00 


010000 






.WORD 


-10000, 10000 




1031 


003126' 


160000 


020000 






.WORD 


-20000,20000 




1032 


003132' 


140000 


040000 






.WORD 


-40000, 40000 




1033 


003136' 


100000 


100000 






.WORD 


-100000, 100000 




1034 


t03142' 


000000 






PATENDi 


.WORD 
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1035 














1036 














1037 












•ASCIZ 


103P 














1039 














1040 


^103144' 


003160' 


177777 




MS2PI 


.WORD 


1041 


003150' 


003345' 


177777 




MS3PI 


.WORD 


1042 


003154' 


003424* 


177777 




MS4PS 


.WORD 


1043 














1044 


003160* 


053445 


051 101 


044516 


MES2! 


.ASCII 


1045 


003166' 


043516 


020041 


051 104 






1046 


003174' 


030461 


027514 


020115 






1047 


003202' 


051120 


04751 I 


044522 






1048 


003210' 


054524 


044440 


020123 






1049 


003216' 


051 107 


040505 


042524 






1M50 


003224' 


020122 


044124 


047 10 J 






1051 


003232' 


P32440 


056 








1052 


003235' 


045 


044124 


051511 




.ASCIZ 


1053 


003242' 


046440 


054501 


044440 






1054 


003250' 


052116 


051 105 


042506 






1055 


003256' 


042522 


053440 


052111 






1056 


003264' 


020110 


051105 


047522 






1057 


003272' 


020122 


051106 


042505 






1058 


003300* 


042440 


042530 


052503 






1059 


003306* 


044524 


0471J7 


047440 






1060 


003314* 


020106 


052117 


042510 






1061 


003322* 


020122 


042504 


027503 






1062 


003330* 


030530 


020061 


047515 






1063 


003336' 


052504 


042514 


022523 






1064 


003344* 


000 










1065 














U66 


003345* 


045 


051104 


040505 


MES3I 


.ASCIZ 


1067 


003352' 


026411 


047516 


046440 






1068 


003360' 


051117 


020105 


047527 






1069 


003366' 


042122 


02fcU23 


0420S0 






1070 


003374* 


030522 


046061 


047440 






1071 


003402' 


020122 


024515 


052040 






1(272 


003410* 


0201 17 


05 4105 


051 105 






1073 


003416* 


044503 


042523 


000045 






1074 














1075 


003424' 


042045 


042522 


004501 


MFS4J 


.ASCIZ 


1076 


003432' 


042455 


051122 


051U7 






1077 


003440' 


0471 U 


020107 


051104 






1078 


003446' 
003454' 


030461 


046050 


047440 






1079 
1080 


20 1,2 2 


024515 


053440 






003462' 


05U17 


020104 


051 104 






10S1 


003470* 


050117 


042520 


020104 






1082 


003476' 


031106 


046517 


052040 






1083 


003304* 


051505 


022524 


000 






1084 




P00001 











jASCIZ MESSAGF POINTERS ♦ MFSSAGES 



MtS2,-l 
MES3,-1 
mf:s4,-1 



•%^6PN1NG1 DRllL/M PRIORITY IS GREATER THAN 5. 



•%TIHS NAY I^iTEHFERF ^ITH ERROR fPEE EXECUTION OF OTHER DEC/All MODULES! 



-MO MORE WORDS CDRllL OP M) TO EXERCISE*' 



'%DREA -ERRORING DRIHL OR MJ WORD DROPPED FROM TEST%' 



miC HEC/XU SYSTEM EXERCISER moDULF 
XDREC0*PH 27»MAR-79 0fll57 



MACYll 3f^ACiia52) 27-MAP-79 09l«0 PAGE 25 
ChOSS FEFERENCF IftBLt USER S^h5B0LS 



ACSR 


000102R 


419# 


716« 


778» 


} 01 1» 


ADDR 


0U0006P 


385 # 


484 


493 


51 7 


ADDR2 


0(',0224R 


4 36 


487 


S00 


534 


ADDR22B 


001 000 


4379 








ASB 




42 3 # 




926 




ASTAT 












At^AS 




424# 


922« 


926 


945# 


BEGIN 


W Icl *7 W 








587 








7 34 


1 7A 


782 






939 


96*» 






BIT0 a 




4 37 # 








B X T (3 6 ^ 








7 1 8 


7 31 








Z 


708 


7 1 8 
















"J »" < V) H H 


437 » 








BlTll s 


t4 ^ A i>4 lI 


437s 








BIT12 s 


t.^ 1 M a 01 6k 
IP I 10 W «9 <?' 


^ ^ I « 








RTTiI * 


P20000 


437 ff 




















BXtIs s 




437« 








BIT2 8 


M M lA 1^ U d 
*7 W W ^ 


4 37 # 








BTTA ° 


£4 £.4 LJI f?l 1 CI 










BT^K * 












RTT^ * 




437w 










Www 1 w*^ 










BIT/ 8 




4 3 ' » 




















BIT9 s 


" O 1 10 (0 If? 


4 37^ 








BREAK$s 


104 407 


437# 










LI 01 M £4 1 ^ D 

*/ w lf> 10 1 « K 


3 7 # 








BR2 


1,1 a isi i> 1 1 C 


AIT * 








dTOPS " 


1 04421 










wmATASB 




t 1 I« 
































CONFIG 


0lai0l0l(C A D 










CSRA 


0: a ji 1 aciR 

Y/\uv i if» V •* 


4 1 7 


561'^ 


579* 


628^ 














MA I n 3 B 


1 0441 1 


437 # 








MATc,KS» 


J Wt ^10 ■» 


437 * 


931 






DRLAOR 


0002 30R 


445* 


5 1 7» 


521 


523* 






7 } g« 


7 3 ] « 


737« 


8 414 


DRLDBR 


" V W « J 46 *^ 


446* 


747* 


749« 


766 


noM Ann 


000234R 


4474 


534» 


539 


541* 






779* 


791 » 


797* 


844« 


DRMDBR 


«00236P 


448# 


689« 


690» 


705* 


DROP 


002266R 


490 


BS9« 






DRVCT 


000252R 


454» 


554» 


563 


582 


DVIDL 


000240R 


4498 


498« 


518 


559 


DVIDM 


000242R 


450« 


505* 


536 


625 


DVIDl 


0000 14R 


J89» 


475 


496 


498 


ENDITSB 


104413 


437« 


969 






ENDS 3 


104410 


437« 


862 






ERPTYP 


000106R 


422* 


566» 


633» 


654* 


EXITS a 


1044(^0 


437« 


713 


774 


B84 


GETPAS8 


104415 


437* 









553 
621 



593 
788 



769 
731 



553* 

9(12 

798* 

621* 

8ft9« 

738* 

609« 
574* 
641* 
503 



720* 
910 



602 
794 



779 
763 



561 

907* 

842* 

628 

677 

845* 

622* 
590# 
659* 

505 



747 
748 



635 
859 



791 
779 



579 

914* 

843* 

647 

883* 

846* 

h79 
693 
752 

507 



841 
844 



(344 
862 



883 
791 



842 
845 



656 
8R4 



889 
8b9 



662 
891 



907 
889 



672 
910 



914 

907 



7i3 
916 



7 22 
9J1 



6i(?8» 

955* 

675 

679« 

889* 

894* 

650 

727* 

785* 



902* 



688* 

922 
748* 
947 
945 

680* 



695 

923 
755 
957* 
946 



956* 
763* 
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08157 




CROSS . 


REFERENCE 


TABLE 


USER SYMBOLS 






GETVP 


002724R 


580 


648 


696 


756 


879 


904 


994« 






GWBUF$s 


104414 


437« 


















HRDCNT 


000044R 


402f 


















HRDEPS= 


1044fc5 


437« 


568 


587 


635 


656 


722 


782 






HRDPAS 


000050R 


404* 


















ICONT 


000036P 


399s 


836 


838« 














ICOUNT 


000040P 


400# 


















IDNUM 


000122R 


429# 


















IDRINT 


001 310R 


645 


688» 
















IFLAG 


000266R 


463» 


69B« 


711 


732* 


758* 


772 


792* 






INIT 


000030R 


396« 


















INTR 


0001 23R 


428# 


4R0« 
















ITCNT 


00I()262R 


458« 


806* 


833* 


838 












ITSET 


000264R 


459» 


806 
















LDEL 


002476P 


916 


919P 
















LOOP 


002172R 


B41» 


971 
















LOOPE 


002632P 


9C0 


927 


940 


943 


955» 










LSERV 


002462R 


906 


914» 
















LWOPK 


f'02410R 


873 


896# 
















MAP22$a 


104416 


437« 


















MDEL 


k»02402P 


891 


B94« 
















MES2 


003160R 


1040 


1044# 
















MFS3 


Wfc3345P 


1041 


1066k 
















MES4 


f»03424R 


1^4^ 


1075« 
















MODNAM 


0O0000R 


383* 


















MODSP 


00022 4R 


397 


435« 
















MSEPV 


002366P 


881 


B89« 
















MSGNS e 


104403 


437f( 


577 


593 


602 


644 


662 


672 


728 


788 


MSGS8 s 


104402 


437« 


















MSGS a 


104401 


437» 


















MS2P 


O03144H 


602 


672 


lPi4Pi# 














MS3P 


003150P 


859 


1041» 
















MS4F 


003154R 


577 


593 


644 


662 


728 


788 


939 


1042« 




MWORf 


002300P 


85^5 


852 


855 


866« 


960 










NULL a 


000000 


437« 


568 


587 


635 


656 


722 


782 






OPEN a 


00f?000 


384 


390 


391 


392 


393 


410 


411 


412 


413 




419 


421 


423 


424 


426 


427 


428 


437» 


445 






450 


451 


452 


453 


454 


455 


456 


457 


458 


OTOAS « 


104420 


437» 


















PASCNT 


000034R 


398« 


















PATEND 


003142H 


963 


1034# 
















PATL5T 


O03042P 


839 


966 


1018» 














PATPNT 


000272R 


466« 


939* 


894 


924 


925 


962* 


963 


966* 




PIRQS 8 


000004 


437# 


734 


794 


891 


916 










POINT 


000260R 


457« 


516* 


518 


524* 


533* 


536 


542* 


552* 


559 




620* 


625 


659 


660 


661 


681* 


691* 


693 


699 






750* 


732 


760 


785 


786 


787 


799* 


814* 


815 






866 


872 


896 


899 


919 


937 


938 


942 


959* 


POPSP 8 


005726 


4378 


















P0PSP2S 


022626 


437« 


















PRIOR 


000256R 


456# 


599 


668 


994* 


99S# 


996* 


997* 


998* 


999* 


PRTY a 


000000 


4373 


















PRTY0 a 


000000 


4370 


















PRTYl 8 


000040 


437# 


















PRTY2 s 


00010<» 


437t 


















PPTY3 8 


000140 


437s 



















414 
446 
463 



590 
725 
817 



415 
44? 
465 



591 
726 
819 



416 417 
448 449 
466 



592 610* 
727 739* 
822* 847* 
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PRTY4 a 

a 

PPTYb s 

PPTY7 8 

PS s 

PSW s 

PUSH s 

PUSH2 » 

PAND$ a 

PAfJNUM 

RESTPT 

PESl 

PES2 

PSTBT 

SBADH 

SOrCNT 

SOFEP|» 

SOrPAS 

SPOINT 

SPSIZ a 

SPB 

SRL 

SPM 

SPJ 

SR2 

SR3 

SR4 

START 

STAT 

ST2 

SVB0 

SVRl 

SVR2 

SVR3 

syR4 

SVR5 

SVR6 

SYSCNT 

TRPDFDa 

VCTCAL 

VECTOR 

VECT2 

WARN 

ivASADR 

WDFR 

WDTO 

XFLAG 



4?002Ci^ 
000240 

^00300 

000340 

177776 

177776 

005746 

024646 

104417 

t)00P54P 

002044R 

000056R 

00n060R 

000U2B 

k;00102P 

«'00042R 

104406 

000046P 

0fc)0032P 

000040 

000250R 

000244R 

000246R 

1^0001 6R 

000020P 

000022R 

000024R 

000274R 

000026R 

000354R 

000062R 

000064R 

000066R 

000070B 

O00072R 

fcJ00074R 

000076R 

000052R 

000022 

000254P 

000010R 

00U226R 

000270P 

000104R 

000116R 

0001HP 

O00005R 



3fl7 

437» 

437(< 

437# 

437* 

437« 

437» 

437# 

43714 

4(?6» 

425 

40SI 

4(7 9 # 

425« 

41B« 

401» 

437« 

403# 

397# 

453» 

854 

451» 

452» 

390» 

39l# 

392« 

393» 

396 

3958 

4fl5 

410# 

41 1» 

412# 

413» 

414» 

4i5« 

4l6i 

405# 

437« 

455ff 

386» 

410» 

465# 

420» 

427# 

426» 

3848 



430 




















507» 


508» 


509* 


576* 


592* 


643* 


661* 


699 


726* 


760 


072 


899 


919 


937* 














496« 


497» 


508 


575* 


591* 


725* 


815 


849 


896 




503* 


504* 


509 


642* 


660* 


786* 


817 


851 


866 


938* 


497 


504 



















582 

554 

622 

556» 

923* 

4B2« 

481* 



697* 



881* 



906* 



1002* 1003* 1004* 1005* 1006* 



596 
946* 



ABS, 000000 
003511 



ERRORS DETECTEDl 
DEFAULT GLOBALS GENERATEDi 
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CROSS PEFFRENCE TABLE — USER SYMBOLS 



XDREC0,XDREC0/SOL/CPF|3YMbDDXCOM,XDREC0 
RUN-TIMEI 5 9 ,9 SECONDS 
RUN-TIME RATIOi 92/1685,5 
CORE USED I 7K (13 PAGES) 



